home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 1 / MacMania 1.toast / Educational / Education'More / M-Q / MorseCodeTeacher.cpt / Ships Code Blinker / background_2742.xml next >
Extensible Markup Language  |  1992-02-28  |  21KB  |  349 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>2742</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_3732.pbm</bitmap>
  7.     <cantDelete> <true /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_3224.css" />
  11.     <part>
  12.         <id>9</id>
  13.         <type>button</type>
  14.         <visible> <true /> </visible>
  15.         <reserved5> 0 </reserved5>
  16.         <reserved4> 0 </reserved4>
  17.         <reserved3> 0 </reserved3>
  18.         <reserved2> 0 </reserved2>
  19.         <reserved1> 0 </reserved1>
  20.         <enabled> <true /> </enabled>
  21.         <rect>
  22.             <left>321</left>
  23.             <top>59</top>
  24.             <right>416</right>
  25.             <bottom>76</bottom>
  26.         </rect>
  27.         <style>roundrect</style>
  28.         <showName> <true /> </showName>
  29.         <highlight> <false /> </highlight>
  30.         <autoHighlight> <false /> </autoHighlight>
  31.         <sharedHighlight> <true /> </sharedHighlight>
  32.         <family>0</family>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>0</icon>
  35.         <textAlign>center</textAlign>
  36.         <font>Geneva</font>
  37.         <textSize>10</textSize>
  38.         <textStyle>plain</textStyle>
  39.         <name>Show message.</name>
  40.         <script>on mouseUpShow bkgnd button "hide message."show bkgnd field "message"Hide bkgnd button "mask"end mouseUp</script>
  41.     </part>
  42.     <part>
  43.         <id>1</id>
  44.         <type>field</type>
  45.         <visible> <false /> </visible>
  46.         <dontWrap> <false /> </dontWrap>
  47.         <dontSearch> <false /> </dontSearch>
  48.         <sharedText> <true /> </sharedText>
  49.         <fixedLineHeight> <false /> </fixedLineHeight>
  50.         <autoTab> <false /> </autoTab>
  51.         <lockText> <true /> </lockText>
  52.         <rect>
  53.             <left>316</left>
  54.             <top>80</top>
  55.             <right>413</right>
  56.             <bottom>238</bottom>
  57.         </rect>
  58.         <style>scrolling</style>
  59.         <autoSelect> <false /> </autoSelect>
  60.         <showLines> <false /> </showLines>
  61.         <wideMargins> <false /> </wideMargins>
  62.         <multipleLines> <false /> </multipleLines>
  63.         <reservedFamily> 0 </reservedFamily>
  64.         <titleWidth>0</titleWidth>
  65.         <icon>0</icon>
  66.         <textAlign>left</textAlign>
  67.         <font>Monaco</font>
  68.         <textSize>12</textSize>
  69.         <textStyle>plain</textStyle>
  70.         <textHeight>16</textHeight>
  71.         <name>Data</name>
  72.         <script>on mouseUpget the value of the clicklineput the first char of it into bkgnd field "Message"send mouseUp to bkgnd button "Send."end mouseUp</script>
  73.     </part>
  74.     <part>
  75.         <id>3</id>
  76.         <type>button</type>
  77.         <visible> <true /> </visible>
  78.         <reserved5> 0 </reserved5>
  79.         <reserved4> 0 </reserved4>
  80.         <reserved3> 0 </reserved3>
  81.         <reserved2> 0 </reserved2>
  82.         <reserved1> 0 </reserved1>
  83.         <enabled> <true /> </enabled>
  84.         <rect>
  85.             <left>127</left>
  86.             <top>167</top>
  87.             <right>159</right>
  88.             <bottom>199</bottom>
  89.         </rect>
  90.         <style>transparent</style>
  91.         <showName> <false /> </showName>
  92.         <highlight> <true /> </highlight>
  93.         <autoHighlight> <false /> </autoHighlight>
  94.         <sharedHighlight> <true /> </sharedHighlight>
  95.         <family>0</family>
  96.         <titleWidth>0</titleWidth>
  97.         <icon>23079</icon>
  98.         <textAlign>center</textAlign>
  99.         <font>Chicago</font>
  100.         <textSize>12</textSize>
  101.         <textStyle>plain</textStyle>
  102.         <name>blinker</name>
  103.         <script>on mouseUpput "DON'T TOUCH... LAMP IS HOT!"play "dah"  e3x  a#q  c4wait until the sound is "done"hide messageend mouseUp</script>
  104.     </part>
  105.     <part>
  106.         <id>4</id>
  107.         <type>field</type>
  108.         <visible> <true /> </visible>
  109.         <dontWrap> <false /> </dontWrap>
  110.         <dontSearch> <false /> </dontSearch>
  111.         <sharedText> <false /> </sharedText>
  112.         <fixedLineHeight> <false /> </fixedLineHeight>
  113.         <autoTab> <false /> </autoTab>
  114.         <lockText> <false /> </lockText>
  115.         <rect>
  116.             <left>8</left>
  117.             <top>20</top>
  118.             <right>411</right>
  119.             <bottom>37</bottom>
  120.         </rect>
  121.         <style>rectangle</style>
  122.         <autoSelect> <false /> </autoSelect>
  123.         <showLines> <false /> </showLines>
  124.         <wideMargins> <false /> </wideMargins>
  125.         <multipleLines> <false /> </multipleLines>
  126.         <reservedFamily> 0 </reservedFamily>
  127.         <titleWidth>0</titleWidth>
  128.         <icon>0</icon>
  129.         <textAlign>left</textAlign>
  130.         <font>Geneva</font>
  131.         <textSize>12</textSize>
  132.         <textStyle>plain</textStyle>
  133.         <textHeight>16</textHeight>
  134.         <name>message</name>
  135.         <script>on returnInFieldsend mouseUp to bkgnd button "Send."end returnInField</script>
  136.     </part>
  137.     <part>
  138.         <id>5</id>
  139.         <type>button</type>
  140.         <visible> <true /> </visible>
  141.         <reserved5> 0 </reserved5>
  142.         <reserved4> 0 </reserved4>
  143.         <reserved3> 0 </reserved3>
  144.         <reserved2> 0 </reserved2>
  145.         <reserved1> 0 </reserved1>
  146.         <enabled> <true /> </enabled>
  147.         <rect>
  148.             <left>321</left>
  149.             <top>39</top>
  150.             <right>416</right>
  151.             <bottom>56</bottom>
  152.         </rect>
  153.         <style>roundrect</style>
  154.         <showName> <true /> </showName>
  155.         <highlight> <false /> </highlight>
  156.         <autoHighlight> <true /> </autoHighlight>
  157.         <sharedHighlight> <true /> </sharedHighlight>
  158.         <family>0</family>
  159.         <titleWidth>0</titleWidth>
  160.         <icon>0</icon>
  161.         <textAlign>center</textAlign>
  162.         <font>Chicago</font>
  163.         <textSize>12</textSize>
  164.         <textStyle>plain</textStyle>
  165.         <name>Send.</name>
  166.         <script>on mouseUpglobal codeList, codeChar, secret, delay-- setupif secret is empty thenget field "message"elseget secretend ifput LowerToUpper (it) into text -- needs xfcnput empty into field "message"set the hilite of bkgnd button "blinker" to trueput empty into secretshow bkgnd field "abort"put "‚Ä¢" into dotput "-" into dashput delay into localDelay-- determine if sound requested; set sound namesput the checkMark of menuItem "Blinker Only" of menu "Volume" into BlinkFlagput "Dit" into ditput "Dah" into dahif BlinkFlag is true then put delay*3 into localDelay-- MAIN LOOPrepeat with charno = 1 to length(text)put character charno of text into letter-- is it a space?if letter = " " thenput " " after bkgnd field "Message"wait 1 secondsnext repeatend if-- is it in the list?put offset(letter,codeChar) into codeLineif codeLine = 0 thenwait 2*delay ticksnext repeatend if-- BLINK LOOP-- get codeput line codeLine of codeList into Code-- loop for each flashif BlinkFlag is false thenrepeat with ditNo = 3 to length (code)get char ditNo of Codeset the hilite of bkgnd button "blinker" to falseif it is dash then play dah else play ditwait until the sound is "done"set the hilite of bkgnd button "blinker" to truewait localDelay ticksend repeatelserepeat with ditNo = 3 to length (code)get char ditNo of Codeset the hilite of bkgnd button "blinker" to falseif it is dash then wait 20 ticks else wait 5 ticksset the hilite of bkgnd button "blinker" to truewait localDelay ticksend repeatend ifput letter after bkgnd field "message"wait 2*localDelay ticks-- go back and get the next letterend repeathide bkgnd field "abort"end mouseUp</script>
  167.     </part>
  168.     <part>
  169.         <id>10</id>
  170.         <type>button</type>
  171.         <visible> <true /> </visible>
  172.         <reserved5> 0 </reserved5>
  173.         <reserved4> 0 </reserved4>
  174.         <reserved3> 0 </reserved3>
  175.         <reserved2> 0 </reserved2>
  176.         <reserved1> 0 </reserved1>
  177.         <enabled> <true /> </enabled>
  178.         <rect>
  179.             <left>321</left>
  180.             <top>59</top>
  181.             <right>416</right>
  182.             <bottom>76</bottom>
  183.         </rect>
  184.         <style>roundrect</style>
  185.         <showName> <true /> </showName>
  186.         <highlight> <false /> </highlight>
  187.         <autoHighlight> <false /> </autoHighlight>
  188.         <sharedHighlight> <true /> </sharedHighlight>
  189.         <family>0</family>
  190.         <titleWidth>0</titleWidth>
  191.         <icon>0</icon>
  192.         <textAlign>center</textAlign>
  193.         <font>Geneva</font>
  194.         <textSize>10</textSize>
  195.         <textStyle>plain</textStyle>
  196.         <name>Hide message.</name>
  197.         <script>on mouseUpHide meShow bkgnd button "Mask"Hide bkgnd field "message"end mouseUp</script>
  198.     </part>
  199.     <part>
  200.         <id>14</id>
  201.         <type>field</type>
  202.         <visible> <false /> </visible>
  203.         <dontWrap> <false /> </dontWrap>
  204.         <dontSearch> <false /> </dontSearch>
  205.         <sharedText> <true /> </sharedText>
  206.         <fixedLineHeight> <false /> </fixedLineHeight>
  207.         <autoTab> <false /> </autoTab>
  208.         <lockText> <true /> </lockText>
  209.         <rect>
  210.             <left>0</left>
  211.             <top>0</top>
  212.             <right>416</right>
  213.             <bottom>240</bottom>
  214.         </rect>
  215.         <style>scrolling</style>
  216.         <autoSelect> <false /> </autoSelect>
  217.         <showLines> <false /> </showLines>
  218.         <wideMargins> <false /> </wideMargins>
  219.         <multipleLines> <false /> </multipleLines>
  220.         <reservedFamily> 0 </reservedFamily>
  221.         <titleWidth>0</titleWidth>
  222.         <icon>0</icon>
  223.         <textAlign>center</textAlign>
  224.         <font>Geneva</font>
  225.         <textSize>9</textSize>
  226.         <textStyle>plain</textStyle>
  227.         <textHeight>12</textHeight>
  228.         <name>about</name>
  229.         <script>on MouseUphide meend mouseUp</script>
  230.     </part>
  231.     <part>
  232.         <id>16</id>
  233.         <type>field</type>
  234.         <visible> <false /> </visible>
  235.         <dontWrap> <false /> </dontWrap>
  236.         <dontSearch> <false /> </dontSearch>
  237.         <sharedText> <true /> </sharedText>
  238.         <fixedLineHeight> <false /> </fixedLineHeight>
  239.         <autoTab> <false /> </autoTab>
  240.         <lockText> <true /> </lockText>
  241.         <rect>
  242.             <left>244</left>
  243.             <top>199</top>
  244.             <right>412</right>
  245.             <bottom>237</bottom>
  246.         </rect>
  247.         <style>shadow</style>
  248.         <autoSelect> <false /> </autoSelect>
  249.         <showLines> <false /> </showLines>
  250.         <wideMargins> <false /> </wideMargins>
  251.         <multipleLines> <false /> </multipleLines>
  252.         <reservedFamily> 0 </reservedFamily>
  253.         <titleWidth>0</titleWidth>
  254.         <icon>0</icon>
  255.         <textAlign>center</textAlign>
  256.         <font>Chicago</font>
  257.         <textSize>12</textSize>
  258.         <textStyle>plain</textStyle>
  259.         <textHeight>12</textHeight>
  260.         <name>abort</name>
  261.         <script></script>
  262.     </part>
  263.     <part>
  264.         <id>15</id>
  265.         <type>field</type>
  266.         <visible> <false /> </visible>
  267.         <dontWrap> <false /> </dontWrap>
  268.         <dontSearch> <true /> </dontSearch>
  269.         <sharedText> <true /> </sharedText>
  270.         <fixedLineHeight> <true /> </fixedLineHeight>
  271.         <autoTab> <false /> </autoTab>
  272.         <lockText> <false /> </lockText>
  273.         <rect>
  274.             <left>34</left>
  275.             <top>9</top>
  276.             <right>261</right>
  277.             <bottom>236</bottom>
  278.         </rect>
  279.         <style>scrolling</style>
  280.         <autoSelect> <false /> </autoSelect>
  281.         <showLines> <true /> </showLines>
  282.         <wideMargins> <false /> </wideMargins>
  283.         <multipleLines> <false /> </multipleLines>
  284.         <reservedFamily> 0 </reservedFamily>
  285.         <titleWidth>0</titleWidth>
  286.         <icon>0</icon>
  287.         <textAlign>left</textAlign>
  288.         <font>Geneva</font>
  289.         <textSize>12</textSize>
  290.         <textStyle>plain</textStyle>
  291.         <textHeight>14</textHeight>
  292.         <name>secrets</name>
  293.         <script>on mouseUpget the value of the clicklineput "Are you sure you want to delete " & it & "?" into warninganswer warning with "Delete" or "Cancel"if it is "Cancel" thenhide meelsedelete the clicklinehide meend ifend mouseUp</script>
  294.     </part>
  295.     <part>
  296.         <id>17</id>
  297.         <type>button</type>
  298.         <visible> <false /> </visible>
  299.         <reserved5> 0 </reserved5>
  300.         <reserved4> 0 </reserved4>
  301.         <reserved3> 0 </reserved3>
  302.         <reserved2> 0 </reserved2>
  303.         <reserved1> 0 </reserved1>
  304.         <enabled> <true /> </enabled>
  305.         <rect>
  306.             <left>10</left>
  307.             <top>20</top>
  308.             <right>410</right>
  309.             <bottom>37</bottom>
  310.         </rect>
  311.         <style>transparent</style>
  312.         <showName> <false /> </showName>
  313.         <highlight> <false /> </highlight>
  314.         <autoHighlight> <false /> </autoHighlight>
  315.         <sharedHighlight> <true /> </sharedHighlight>
  316.         <family>0</family>
  317.         <titleWidth>0</titleWidth>
  318.         <icon>0</icon>
  319.         <textAlign>center</textAlign>
  320.         <font>Chicago</font>
  321.         <textSize>12</textSize>
  322.         <textStyle>plain</textStyle>
  323.         <name>mask</name>
  324.         <script>on mouseUpsend mouseUp to bkgnd button "Show Message."end mouseUp</script>
  325.     </part>
  326.     <content>
  327.         <layer>background</layer>
  328.         <id>14</id>
  329.         <text><span class="style23"><a href="#" class="group">lick anywhere in this window to get back to main screen.</a></span><span class="style3"></span><span class="style16">Ships‚Äô Code Blinker</span><span class="style1"></span><span class="style4">by Jay Rose          artwork by Carla Rose</span><span class="style17"></span><span class="style19">This stack was designed to help my son, an Explorer Scout on the Lightship Nantucket, learn Morse Code.</span><span class="style17"></span><span class="style12"></span><span class="style1">¬© 1992 Jay Rose. May be freely distributed if this entire field is left intact.</span><span class="style9">I got no money for this stack. If you paid for it, you‚Äôve been ripped off.</span><span class="style1"></span><span class="style4">If you use the stack, please send a </span><span class="style8">tax-deductable</span><span class="style4">  contribution to:</span><span class="style1"></span><span class="style18">Lightship NANTUCKETBoston Navy Yard</span><span class="style11">¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†</span><span class="style18">Charlestown, MA</span><span class="style11">¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†¬†more</span><span class="style18"></span><span class="style4">‚Ä¢‚Ä¢‚Ä¢</span><span class="style18"></span><span class="style4"></span><span class="style1">Carla & Jay Rose wrote </span><span class="style9">The First Book of Macintosh</span><span class="style1">  (Macmillan, $16.95):useful and funny information about every aspect of your Mac.Jay also wrote a hundred pages on HyperCard and on Sound (MIDI and sampling) for </span><span class="style9">Everything You Wanted to Know About the Mac</span><span class="style1">, coming from Macmillanin mid-1992.  </span><span class="style24">Buy our books. Please.</span><span class="style1"></span><span class="style4">‚Ä¢‚Ä¢‚Ä¢</span><span class="style22"><a href="#" class="group">To enable ‚ÄúEdit Secret Messages‚Äù menu pick, type SPIES and hit return.BLIND TYPING must be turned on in your home stack for this to work.</a></span><span class="style5"><a href="#" class="group"></a></span><span class="style4">‚Ä¢‚Ä¢‚Ä¢ L</span><span class="style1">eave comments, suggestions, bug reports:America OnLine JC ROSE, MCI Mail CJ ROSEAlmost all of this program exists in the background script, and is fully commented.Being a power-user yourself, you know how to view and edit it.Since Morse Code doesn‚Äôt have lower case letters, the stack conditions text with ‚ÄúupperToLower‚Äù, from HyperMacintalk by Dennis C. DeMars. The volume menu uses ‚ÄúVolume‚Äù XCFN from HyperSound by Farallon. If this offends anyone, let me know. version 1.1  2/22/92</span></text>
  330.     </content>
  331.     <content>
  332.         <layer>background</layer>
  333.         <id>1</id>
  334.         <text>A ‚Ä¢-B -‚Ä¢‚Ä¢‚Ä¢C -‚Ä¢-‚Ä¢D -‚Ä¢‚Ä¢E ‚Ä¢F ‚Ä¢‚Ä¢-‚Ä¢G --‚Ä¢H ‚Ä¢‚Ä¢‚Ä¢‚Ä¢I ‚Ä¢‚Ä¢J ‚Ä¢---K -‚Ä¢-L ‚Ä¢-‚Ä¢‚Ä¢M --N -‚Ä¢O ---P ‚Ä¢--‚Ä¢Q --‚Ä¢-R ‚Ä¢-‚Ä¢S ‚Ä¢‚Ä¢‚Ä¢T -U ‚Ä¢‚Ä¢-V ‚Ä¢‚Ä¢‚Ä¢-W ‚Ä¢--X -‚Ä¢‚Ä¢-Y -‚Ä¢--Z --‚Ä¢‚Ä¢0 -----1 ‚Ä¢----2 ‚Ä¢‚Ä¢---3 ‚Ä¢‚Ä¢‚Ä¢--4 ‚Ä¢‚Ä¢‚Ä¢‚Ä¢-5 ‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢6 -‚Ä¢‚Ä¢‚Ä¢‚Ä¢7 --‚Ä¢‚Ä¢‚Ä¢8 ---‚Ä¢‚Ä¢9 ----‚Ä¢. ‚Ä¢-‚Ä¢-‚Ä¢-, --‚Ä¢‚Ä¢--? ‚Ä¢-‚Ä¢--‚Ä¢-</text>
  335.     </content>
  336.     <content>
  337.         <layer>background</layer>
  338.         <id>15</id>
  339.         <text>SEND HELP FASTLOOK OUT FOR PENGUINSATTACK AT DAWNHELLO SAILORI AM SEASICKTHE ADMIRAL IS COMINGHEAD DUE NORTHHEY GOT A LIGHTCOME ABOARDSHIP AHOY O BOYICE CREAM TONIGHTMY BLINKER WORKSSPIES ARE EVERYWHEREI WANT A COOKIEFLIPPER WALKS BY NIGHTFULL SPEED AHEAD MR SULU</text>
  340.     </content>
  341.     <content>
  342.         <layer>background</layer>
  343.         <id>16</id>
  344.         <text>To cancel blinking, type cmd-period ( ‚åò . )</text>
  345.     </content>
  346.     <name></name>
  347.     <script>-----------------------------------------------------------PROGRAMMING INFORMATION:------------------------------------------------------------- Magic debug codeword: Blind-type "Backdoor"-- To edit Secret Messages, show bkgnd field "secrets". Text is in the-- bkgnd layer.-- To adjust speed, change the values of "delay" in these 3 handlers:on Speed1resetSpeedglobal delayput 10 into delayset the checkmark of menuItem 1 of menu "Speed" to trueend Speed1on Speed2resetSpeedglobal delayput 5 into delayset the checkmark of menuItem 2 of menu "Speed" to trueend Speed2on Speed3resetSpeedglobal delayput 1 into delayset the checkmark of menuItem 3 of menu "Speed" to trueend Speed3-----------------------------------------------------------on backDoorreset MenubarmakeMenusset userlevel to 5end backDooron preloadglobal codeList, codeCharput empty into codeCharput bkgnd field "data" into codeListrepeat with lineno = 1 to the number of lines in codeListput the first char of line lineno of codeList after codeCharend repeatend preloadon openStackif "Control" is not in the menus thenmakeMenusdeleteMenusend ifpreloadput volume(1) into dummySpeed1set blindtyping to truehide bkgnd field "Data"hide bkgnd field "Abort"send mouseUp to bkgnd button "Show message."put "WELCOME" into bkgnd field "Message"tabkeyend openStackon closeStackreset menubarpass closeStackend closeStackon makeMenusput "Control" into mencreate menu menput "About..." into menu men with menuMsg Aboutput "Help..." after menu men with menuMsg Helpset the cmdChar of menuItem 2 of menu men to "?"put "Send Secret Message" after menu men with menuMsg SendSecset the cmdChar of menuItem 3 of menu men to "S"put "Show Morse Code" after menu men with menuMsg Codeput "-" after menu menput "Edit Secret Messages" after menu men with menuMsg editMsgdisable menuItem 6 of menu menput "Speed" into mencreate menu menput "Slow" into menu men with menuMsg Speed1set checkMark of menuItem 1 of menu men to trueput "Medium" after menu men with menuMsg Speed2put "Fast!" after menu men with menuMsg Speed3put "Volume" into mencreate menu menput "Blinker Only" into menu men with menuMsg Blinkerput "Soft" after menu men with menuMsg Softset checkMark of menuItem 2 of menu men to trueput "Medium" after menu men with menuMsg Mediumput "Too Loud" after menu men with menuMsg Loudend makeMenuson deleteMenusdelete menu "edit"if "tools" is in the menus then delete menu "tools"if "objects" is in the menus then delete menu "objects"if "font" is in the menus then delete menu "font"if "style" is in the menus then delete menu "style"get the number of menuitems in menu "Go"repeat with menuNo = 5 to itdelete menuItem 5 of menu "Go"end repeatget the number of menuitems in menu "File"repeat with menuNo = 7 to (it - 2)delete menuItem 7 of menu "File"end repeatend deleteMenuson SendSecglobal secret, lastSecret, hideSecretif hideSecret is empty thenput "Do you want to see each letter of the" & ¬¨return & "secret message as it‚Äôs being sent?" into warninganswer warning with "Yes" or "No"put it into hideSecretend ifget the number of lines in bkgnd field "secrets"repeat foreverput random(it) into linenoget line lineno of bkgnd field "secrets"if it is empty then put "TEST MESSAGE" into itif it‚â†lastSecret then exit repeatend repeatput it into secretput it into lastSecretif hideSecret is "No" thensend mouseUp to bkgnd button "Hide message."elsesend mouseUp to bkgnd button "Show message."end ifsend mouseUp to bkgnd button "Send."end SendSecon Codeget the visible of bkgnd field "data"if it is false thenput "Hide Morse Code" into menuItem 3 of menu "Control" with menuMsg "Code"show bkgnd field "data"elseput "Show Morse Code" into menuItem 3 of menu "Control" with menuMsg "Code"hide bkgnd field "data"end ifend Codeon Aboutgo to card "Blinker"set the scroll of bkgnd field "about" to 0beepshow bkgnd field "about"end Abouton spiesbeep twoset the enabled of the last menuitem¬¨of menu "Control" to truehide messageend spieson editMsganswer "What do you want to do to the Message List?"¬¨with "Add New" or "Delete One" or "Cancel"if it is "Add New" thennewMsgelse if it is "Delete One" thenkillMsgend ifend editMsgon newMsgAsk "Enter your message here:"if it is empty then exit newMsgput lowerToUpper (it) into newMessif length(newMess) > 32 thenAnswer "Message is too long. Think up a new message, and again." with "Okay."exit newMsgend ifPut "Are you sure you want to add  " & newMess & "?" into queryAnswer query with "No" or "Yes"if it is "No" then exit newMsgput return & newMess after bkgnd field "secrets"put "MESSAGE ADDED. There are now " &¬¨number of lines in bkgnd field "secrets" & "messages."wait 2 secondsput emptyhide messageend newMsgon killMsgshow bkgnd field "Secrets"put "Click on message to delete. If you change your mind, " into warningput "you‚Äôll get a chance to cancel." after warninganswer warning with "Okay."end killMsgon resetSpeedrepeat with menuNo = 1 to 3set the checkmark of menuitem menuNo of menu "Speed" to falseend repeatend resetSpeedon Blinker-- The Send button tests this checkmark each timeresetVolumeset the checkmark of menuItem 1 of menu "Volume" to trueend Blinkeron SoftresetVolumeset the checkmark of menuItem 2 of menu "Volume" to trueput Volume(1) into dummyend Softon MediumresetVolumeset the checkmark of menuItem 3 of menu "Volume" to trueput Volume(3) into dummyend Mediumon LoudresetVolumeset the checkmark of menuItem 4 of menu "Volume" to trueput Volume(9) into dummyend Loudon resetVolumerepeat with menuNo = 1 to 4set the checkmark of menuitem menuNo of menu "Volume" to falseend repeatend resetVolumeon helpput "Do you want help with Ships Code Blinker, or with HyperCard in general?" into warninganswer warning with "Cancel" or "HyperCard" or "Blinker"if it is "HyperCard" thenpass helpelse if it is "Blinker" thensend mouseUp to card button "help" of card "blinker"end ifend help</script>
  348. </background>
  349.